home *** CD-ROM | disk | FTP | other *** search
/ Shareware Grab Bag / Shareware Grab Bag.iso / 002 / justify.arc / LINEBUG.BAS (.txt) < prev    next >
Encoding:
GW-BASIC  |  1984-05-30  |  768 b   |  36 lines
  1. 10   CLS
  2. 13   LOCATE 3,29
  3. 16   PRINT "LINEBUG BY COMFAX"
  4. 20   LOCATE 5,25
  5. 30   PRINT "COPYRIGHT (C) 1984 COMFAX"
  6. 40   LOCATE 10,1
  7. 50   INPUT "ENTER PROGRAM NAME TO BE CHECKED ";PRG$
  8. 100  OPEN "I",#1,PRG$
  9. 250  OLDLINNO$="00000"
  10. 300  GOTO 500
  11. 400  IF EOF(1) GOTO 2300
  12. 500  LINE INPUT #1,IMAGE$
  13. 550  LINNO$="00000"
  14. 600  XX=1
  15. 700  IF MID$(IMAGE$,XX,1)=" " GOTO 1100
  16. 750  IF MID$(IMAGE$,XX,1) < "0" GOTO 2100
  17. 760  IF MID$(IMAGE$,XX,1) > "9" GOTO 2100
  18. 800  XX=XX+1
  19. 900  IF XX>6 GOTO 2100
  20. 1000  GOTO 700
  21. 1100  IF XX<2 GOTO 2100
  22. 1200  XX=XX-1
  23. 1300  YY=6-XX
  24. 1400  HLIN$ = MID$(IMAGE$,1,XX)
  25. 1500  MID$(LINNO$,YY)=HLIN$
  26. 1600  IF OLDLINNO$ >= LINNO$ GOTO 1900
  27. 1700  OLDLINNO$=LINNO$
  28. 1800  GOTO 400
  29. 1900  PRINT "LINE NO. ERROR ";LINNO$
  30. 2000  GOTO 1700
  31. 2100  HLD$=MID$(IMAGE$,1,20)
  32. 2150  PRINT "ILLEGAL LINE NO. ";HLD$
  33. 2200  GOTO 400
  34. 2300  CLOSE #1
  35. 2400  SYSTEM
  36.